(query-replace-map): Define backspace like delete.

diff --git a/lisp/replace.el b/lisp/replace.el
index 449d5243ee373bf76b853d66939ced33135c820d..62d802785897d37c46e460b7a1d5ed62c7de4d2a 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -376,6 +376,7 @@ The valid answers include `act', `skip', `act-and-show',
 (define-key query-replace-map " " 'act)
 (define-key query-replace-map "\d" 'skip)
 (define-key query-replace-map [delete] 'skip)
+(define-key query-replace-map [backspace] 'skip)
 (define-key query-replace-map "y" 'act)
 (define-key query-replace-map "n" 'skip)
 (define-key query-replace-map "," 'act-and-show)
@@ -474,7 +475,8 @@ which will run faster and do exactly what you probably want."
          (while (not done)
            (message "Query replacing %s with %s: "
                     from-string next-replacement)
-           (setq key (vector (read-event)))
+           (setq key (read-event))
+           (setq key (vector key))
            (setq def (lookup-key map key))
            ;; Restore the match data while we process the command.
            (store-match-data real-match-data)